clear all
set maxvar 5000

******************************************
cd "/Users/tg2778/Dropbox/0_Reviews_RnRs/072022_JOP_Roads/v3_JOP/Replication - Roads"
log using "4_Log/14_Information.log"

use "1_Data/AC_pre-delim_dataset.dta", clear

egen acstateid = concat(VD01_AC_id stateid),p("_")

quietly areg change_incumbentvoteshare z2totalvill if statebelowavgrurallit==0, absorb(statedistrict2) cluster(acstateid)
quietly estimates store ac1
quietly estadd local sp "States > avg. literacy"

quietly areg change_incumbentvoteshare c.z2totalvill##c.z2accessedu, absorb(statedistrict2) cluster(acstateid)
quietly estimates store ac2
quietly estadd local sp "Full"

quietly areg change_incumbentvoteshare c.z2totalvill##c.z2papmag, absorb(statedistrict2) cluster(acstateid)
quietly estimates store ac3
quietly estadd local sp "Full"

quietly areg change_incumbentvoteshare c.z2totalvill##c.z2commfacility, absorb(statedistrict2) cluster(acstateid)
quietly estimates store ac4
quietly estadd local sp "Full"


********************************************

use "1_Data/AC_post-delim_dataset.dta", clear

egen acstateid = concat(VD01_AC_id stateid),p("_")

quietly areg change_incumbentvoteshare z2totalvill if statebelowavgrurallit==0, absorb(statedistrict2) cluster(acstateid)
quietly estimates store ac5
quietly estadd local sp "States > avg. literacy"

quietly areg change_incumbentvoteshare c.z2totalvill##c.z2accessedu, absorb(statedistrict2) cluster(acstateid)
quietly estimates store ac6
quietly estadd local sp "Full"

quietly areg change_incumbentvoteshare c.z2totalvill##c.z2papmag, absorb(statedistrict2) cluster(acstateid)
quietly estimates store ac7
quietly estadd local sp "Full"

quietly areg change_incumbentvoteshare c.z2totalvill##c.z2commfacility, absorb(statedistrict2) cluster(acstateid)
quietly estimates store ac8
quietly estadd local sp "Full"


esttab ac* using "2_Tables/Appendix_Table_G4_1.doc", drop(_cons) cells(b(star fmt(3)) se(par fmt(3))) collabels(none) nomtitles mgroups("Pre-delimitation ACs" "Post-delimitation ACs", pattern(1 0 0 0 1 0 0 0)) replace rtf varlabel(z2totalvill "Δ connectivity (std.)" z2accessedu "Edu facilities (std.)" z2papmag "Media availability (std.)" z2commfacility "Comm. facilities (std.)" c.z2totalvill#c.z2accessedu "Δ connectivity × % edu facilities" c.z2totalvill#c.z2papmag "Δ connectivity × Media availability" c.z2totalvill#c.z2commfacility "Δ connectivity × Comm. facilities") substitute("\fs20" "\fs16" "\fs24" "\fs16") scalars("sp Sample") nobase noomit addnote("\i{Notes:}\i0 The dependent variable is change in the state-level incumbent party/ coalition vote share in consecutive state-level elections, measured in %. The OLS specification is the same as in main OLS results. Standard errors are clustered at the constituency level. *** p<0.001, ** p<0.01, * p<0.05") varwidth(20) modelwidth(3) title("Voter response remains absent in media rich environments: State elections")



***************************************************************************************

use "1_Data/PC_pre-delim_dataset_select.dta", clear

egen pcstate = concat(PC_no_2001 stateid),p("_")

quietly areg change_incumbentvoteshare z2totalvill if statebelowavgrurallit==0, absorb(state2) cluster(pcstate)
quietly estimates store pc1
quietly estadd local sp "States > avg. literacy"

quietly areg change_incumbentvoteshare c.z2totalvill##c.z2accessedu, absorb(state2) cluster(pcstate)
quietly estimates store pc2
quietly estadd local sp "Full"

quietly areg change_incumbentvoteshare c.z2totalvill##c.z2papmag, absorb(state2) cluster(pcstate)
quietly estimates store pc3
quietly estadd local sp "Full"

quietly areg change_incumbentvoteshare c.z2totalvill##c.z2commfacility, absorb(state2) cluster(pcstate)
quietly estimates store pc4
quietly estadd local sp "Full"

**********************************************

use "1_Data/PC_post-delim_dataset_select.dta", clear

egen pcstate = concat(PC_no_2001 stateid),p("_")

quietly areg change_incumbentvoteshare z2totalvill if statebelowavgrurallit==0, absorb(state2) cluster(pcstate)
quietly estimates store pc5
quietly estadd local sp "States > avg. literacy"

quietly areg change_incumbentvoteshare c.z2totalvill##c.z2accessedu, absorb(state2) cluster(pcstate)
quietly estimates store pc6
quietly estadd local sp "Full"

quietly areg change_incumbentvoteshare c.z2totalvill##c.z2papmag, absorb(state2) cluster(pcstate)
quietly estimates store pc7
quietly estadd local sp "Full"

quietly areg change_incumbentvoteshare c.z2totalvill##c.z2commfacility, absorb(state2) cluster(pcstate)
quietly estimates store pc8
quietly estadd local sp "Full"

esttab pc* using "2_Tables/Appendix_Table_G4_2.doc", drop(_cons) cells(b(star fmt(3)) se(par fmt(3))) collabels(none) nomtitles mgroups("Pre-delimitation PCs" "Post-delimitation PCs", pattern(1 0 0 0 1 0 0 0)) replace rtf varlabel(z2totalvill "Δ connectivity (std.)" z2accessedu "Edu facilities (std.)" z2papmag "Media availability (std.)" z2commfacility "Comm. facilities (std.)" c.z2totalvill#c.z2accessedu "Δ connectivity × % edu facilities" c.z2totalvill#c.z2papmag "Δ connectivity × Media availability" c.z2totalvill#c.z2commfacility "Δ connectivity × Comm. facilities") substitute("\fs20" "\fs16" "\fs24" "\fs16") scalars("sp Sample") nobase noomit addnote("\i{Notes:}\i0 The dependent variable is change in the national level incumbent party/ coalition vote share in consecutive national level elections, measured in %. Each model contains a district fixed effect, controls and a constant that is not reported. Standard errors are clustered to the district level.*** p<0.001, ** p<0.01, * p<0.05") varwidth(20) modelwidth(3) title("Voter response remains absent in media rich environments: National elections")

log close
